unit NodeReceive;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniMemo, uniEdit, uniGUIBaseClasses, uniPanel,
  uniButton;

type
  TFrmNodeReceive = class(TUniForm)
    pnForm: TUniPanel;
    edit1: TUniEdit;
    UniMemo1: TUniMemo;
    UniButton1: TUniButton;
    procedure UniButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function FrmNodeReceive: TFrmNodeReceive;

implementation

{$R *.dfm}

uses
  MainModule;

function FrmNodeReceive: TFrmNodeReceive;
begin
  Result := TFrmNodeReceive(UniMainModule.GetFormInstance(TFrmNodeReceive));
end;

procedure TFrmNodeReceive.UniButton1Click(Sender: TObject);
begin
  edit1.Text := 'hello';
end;

end.
